Friend Class ConsultEventArgs
    Inherits System.EventArgs

    Private mStream As DataStream.Stream
    Private mMessage As String

    Sub New(ByVal Stream As DataStream.Stream)
        Me.New(Nothing, Stream)
    End Sub
    Sub New(ByVal Message As String)
        Me.New(Message, Nothing)
    End Sub
    Sub New(ByVal Message As String, ByVal Stream As DataStream.Stream)
        mMessage = Message
        mStream = Stream
    End Sub

    Public ReadOnly Property Message() As String
        Get
            Return mMessage
        End Get
    End Property
    Public ReadOnly Property Stream() As DataStream.Stream
        Get
            Return mStream
        End Get
    End Property
End Class
